home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / SICL / data1.cab / sicl32 / vb / samples / misc / gpibstat.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-02  |  1.4 KB  |  40 lines
  1.  
  2. '  gpibstat.bas
  3. Sub main ()
  4.    Dim id As Integer        ' session id
  5.    Dim remen As Integer     ' remote enable
  6.    Dim srq As Integer       ' service request
  7.    Dim ndac As Integer      ' not data accepted
  8.    Dim sysctlr As Integer   ' system controller
  9.    Dim actctlr As Integer   ' active controller
  10.    Dim talker As Integer    ' talker
  11.    Dim listener As Integer  ' listener
  12.    Dim addr As Integer      ' bus address
  13.    Dim header As String     ' report header
  14.    Dim values As String     ' report output
  15.  
  16.    ' Open GPIB interface session
  17.    id = iopen("hpib7")
  18.    Call itimeout(id, 10000)
  19.  
  20.    ' Retrieve GPIB bus status
  21.    Call igpibbusstatus(id, I_GPIB_BUS_REM, remen)
  22.    Call igpibbusstatus(id, I_GPIB_BUS_SRQ, srq)
  23.    Call igpibbusstatus(id, I_GPIB_BUS_NDAC, ndac)
  24.    Call igpibbusstatus(id, I_GPIB_BUS_SYSCTLR, sysctlr)
  25.    Call igpibbusstatus(id, I_GPIB_BUS_ACTCTLR, actctlr)
  26.    Call igpibbusstatus(id, I_GPIB_BUS_TALKER, talker)
  27.    Call igpibbusstatus(id, I_GPIB_BUS_LISTENER, listener)
  28.    Call igpibbusstatus(id, I_GPIB_BUS_ADDR, addr)
  29.  
  30.    ' Display form1 and print results
  31.    form1.Show
  32.    form1.Print "REM"; Tab(7); "SRQ"; Tab(14); "NDC"; Tab(21); "SYS"; Tab(28); "ACT"; Tab(35); "TLK"; Tab(42); "LTN"; Tab(49); "ADDR"
  33.    form1.Print remen; Tab(7); srq; Tab(14); ndac; Tab(21); sysctlr; Tab(28); actctlr; Tab(35); talker; Tab(42); listener; Tab(49); addr
  34.  
  35.    ' Tell SICL to cleanup for this task
  36.    Call siclcleanup
  37.  
  38.  
  39. End Sub
  40.